home *** CD-ROM | disk | FTP | other *** search
/ Shareware Grab Bag / Shareware Grab Bag.iso / 003 / retrieve.arc / RETRIEVE.PRG < prev   
Encoding:
Text File  |  1984-12-05  |  3.1 KB  |  101 lines
  1.  
  2. NOTE  -dBASE II EXECUTIVE COMMAND FILE RETRIEVE.CMD
  3. CLEAR
  4. ERASE
  5. SET TALK OFF
  6. ERASE
  7. STORE DATE() TO M:DATE
  8. STORE T TO NODATE
  9. @ 1,0 SAY "-----------------------------------------------------------------------"
  10. @ 2,27 SAY "**** R+E+T+R+I+E+V+E ****"
  11. @ 4,22 SAY "CARDIAC ELECTROPHYSIOLOGY LABORATORY"
  12. @ 5,29 SAY "DIVISION OF CARDIOLOGY"
  13. @ 6,21 SAY "CHILDREN'S HOSPITAL RESEARCH FOUNDATION"
  14. @ 7,0 SAY "-----------------------------------------------------------------------"
  15. DO WHILE NODATE
  16.      @ 12,24 SAY 'ENTER DATE (mm/dd/yy) ' GET M:DATE PICTURE '99/99/99'
  17.      READ
  18.      IF VAL($(M:DATE,1,2))<1;
  19.         .OR. VAL($(M:DATE,1,2))>12;
  20.         .OR. VAL($(M:DATE,4,2))<1;
  21.         .OR. VAL($(M:DATE,4,2))>31;
  22.         .OR. VAL($(M:DATE,7,2))<83
  23.           STORE 'mm/dd/yy' TO M:DATE
  24.           @ 7,21 SAY '**** BAD DATE -- PLEASE RE-ENTER. ****'
  25.           STORE T TO NODATE
  26.      ELSE
  27.           STORE F TO NODATE
  28.      ENDIF
  29. ENDDO
  30. SET DATE TO &M:DATE
  31. @ 5,23 SAY '                                 '
  32. @ 7,20 SAY '                                        '
  33. STORE 'REFS' TO FILE0
  34. STORE 'REFS index REF:NO' TO FILE1
  35. DO WHILE T
  36.      ERASE
  37.      ?
  38.      ? 
  39.      ? '                       ***  R+E+T+R+I+E+V+E MENU  ***'
  40.      ?
  41.      ?
  42.      ? '                         <0>  EXIT'
  43.      ? '                         <1>  ENTER NEW ARTICLES'
  44.      ? '                         <2>  ENTER NEW ARTICLES WITH'
  45.      ? '                              (AUTOMATIC REFERENCE NUMBERING)'
  46.      ? '                         <3>  LOCATE ARTICLES'
  47.      ? '                         <4>  QUICKLY LOCATE ARTICLES'
  48.      ? '                              (BY FIRST AUTHOR, FIRST KEY WORD,'
  49.      ? '                               OR FIRST 20 LTRS OF SOURCE)'
  50.      ? '                         <5>  LOCATE ARTICLES & MAKE TEXT FILE'
  51.      ? '                         <6>  RE-INDEX FILES'
  52.      ? '                         <7>  MAKE LABELS FOR ARTICLES'
  53.      ? '                         <8>  EDIT DATA BASE RECORDS'
  54. @ 23,10 SAY 'ENTER DESIRED ACTION'
  55. @ 22,0 SAY ' '
  56. WAIT TO ACTION
  57. DO CASE
  58.      CASE ACTION='0'
  59.           ERASE
  60.           USE &FILE0
  61.           GO BOTTOM
  62.       STORE "Y" TO ANS
  63.           STORE STR(#,6) TO REC:NO
  64.           @ 2,19 SAY '*** REFS.DBF NOW CONTAINS '-REC:NO+' RECORDS ***'
  65.           @ 16,1 SAY ' '
  66.           SET TALK ON
  67.           @ 12,10 SAY '*** HIT ANY KEY TO CONTINUE ***'
  68.           @ 11,0 SAY ' '
  69.           WAIT
  70.           ERASE
  71.           @ 7,22 SAY "WANT TO RETURN TO MAIN MENU? (Y/N) " GET ANS PICTURE "A"
  72.           READ
  73.       IF !(ANS)="Y"
  74.                CLEAR
  75.                DO MENU
  76.           ELSE
  77.                CLEAR
  78.                ERASE
  79.                QUIT
  80.           ENDIF
  81.      CASE ACTION='1'
  82.           DO NEW
  83.      CASE ACTION='2'
  84.           DO AUTONUMB
  85.      CASE ACTION='3'
  86.           DO FIND
  87.      CASE ACTION='4'
  88.           DO FASTFIND
  89.      CASE ACTION='5'
  90.           DO TEXT
  91.      CASE ACTION='6'
  92.           DO INDEX
  93.      CASE ACTION='7'
  94.           DO LABEL
  95.      CASE ACTION='8'
  96.           DO EDIT
  97.      OTHERWISE
  98.           ? '**** Invalid response, re-enter ****'
  99.      ENDCASE
  100. ENDDO
  101.